home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / dframe41.zip / DFRAME.INC < prev    next >
Text File  |  1993-03-24  |  16KB  |  268 lines
  1. DECLARE SUB Back.Space (Row%, Col%, Num%)
  2. DECLARE SUB BOX.IT (TROW%, LCOL%, BROW%, RCOL%, BOXTYPE%, BOXFG%, BOXBG%, FILLFG%, FILLBG%, FILLCHAR%, SHADOW%, TITLE$, HFG%, HBG%)
  3. DECLARE SUB CLREOL (XPOS%, YPOS%, BGC%)
  4. DECLARE SUB CLRMOL (XPOS%, YPOS%, LENGTH%, BGC%)
  5. DECLARE SUB CLRSOL (XPOS%, YPOS%, BGC%)
  6. DECLARE SUB CLRSCRN (CLR%)
  7. DECLARE SUB DE.LAY (BYVAL Seconds AS INTEGER)
  8. DECLARE SUB DETECT.ANSI ()
  9. DECLARE SUB DIS.PLAY (MSG$, FGC%, BGC%, BLINK%, BELL%, XPOS%, YPOS%, NL%, CENTER%, Caps%, Codes%)
  10. DECLARE SUB ENTER ()
  11. DECLARE SUB ERRORS (ERRNUM%, ERRLINE%)
  12. DECLARE SUB EXIT.DOOR (YN$)
  13. DECLARE SUB INITIALIZE ()
  14. DECLARE SUB IN.PUT (RLEN%, WAITTIME&, IFG%, IBG%, AutoCR%, Text$, TFG%, TBG%, X%, Y%, SHOW%)
  15. DECLARE SUB KEYTIMER (KEYSTART&)
  16. DECLARE SUB LINES (SROW%, SCOL%, LENGTH%, DIR$, ENDS%, MID%, EFG%, EBG%, MFG%, MBG%)
  17. DECLARE SUB MAKE.BLT (HI.SCORE&)
  18. DECLARE SUB MAKE.BLT.CURRENT (HI.SCORE&)
  19. DECLARE SUB MORE ()
  20. DECLARE SUB MUSIC (TUNE$)
  21. DECLARE SUB OUT.PUT (LF%)
  22. DECLARE SUB SEND (FileName$, YN%, CLR%)
  23. DECLARE SUB SENDANSI (FileName$, YN%)
  24. DECLARE SUB SHOW.BLT (YN$)
  25.  
  26. DECLARE FUNCTION CheckShare2% ()
  27. DECLARE FUNCTION DriveSpace& (Drive$)
  28. DECLARE FUNCTION EXISTS% (FileName AS STRING)
  29. DECLARE FUNCTION EXIST2% (FileName$)
  30. DECLARE FUNCTION NameCase2$ (St$)
  31. DECLARE FUNCTION Sec2Time$ (Seconds&)
  32. DECLARE FUNCTION Time2Sec& (TimeSt$)
  33.  
  34. DECLARE SUB BigPrint (St$, PixelCh$, BYVAL Row%, BYVAL Column%, BYVAL Attr%)
  35. DECLARE SUB CalcAttr (BYVAL Fore%, BYVAL Back%, Attr%)
  36. DECLARE SUB CalcDate (StartDate$, Days&, Direction%, NewDate$, ErrCode%)
  37. DECLARE SUB CDROM (FirstDrive$, Drives%)
  38. DECLARE SUB CheckDate (MonthNr%, DayNr%, YearNr%, ErrCode%)
  39. DECLARE SUB CheckShare (ShareActive%)
  40. DECLARE SUB DateA2R (MonthNr%, DayNr%, YearNr%, RelDate&)
  41. DECLARE SUB DateN2S (MonthNr%, Day%, Year%, DateSt$)
  42. DECLARE SUB DateR2A (MonthNr%, DayNr%, YearNr%, RelDate&)
  43. DECLARE SUB DateS2N (MonthNr%, Day%, Year%, DateSt$)
  44. DECLARE SUB DelFile (FileName$, ErrCode%)
  45. DECLARE SUB DrvType (Drive$, Removeable%, Remote%, ErrCode%)
  46. DECLARE SUB Elapsed (TimeStart$, TimeStop$, ElapsedT$)
  47. DECLARE SUB EMSBuffer (Bytes%)
  48. DECLARE SUB EMSClose (BYVAL ArrayHandle%)
  49. DECLARE SUB EMSGet (BYVAL ArrayHandle%, ElementNr&, Value AS ANY)
  50. DECLARE SUB EMSOpen (Elements&, ElementType%, ArrayHandle%, ErrCode%)
  51. DECLARE SUB EMSPut (BYVAL ArrayHandle%, ElementNr&, Value AS ANY)
  52. DECLARE SUB EMSRest (ArrayState$)
  53. DECLARE SUB EMSSave (ArrayState$)
  54. DECLARE SUB EnhKbd (BYVAL Enable%)
  55. DECLARE SUB EuropeDate (DateSt$, FormatSt$, Result$, ErrCode%)
  56. DECLARE SUB FindFirstF (FileName$, Attr%, ErrCode%)
  57. DECLARE SUB FindNextF (ErrCode%)
  58. DECLARE SUB FormatDate (DateSt$, FormatSt$, Result$, ErrCode%)
  59. DECLARE SUB Get4DosV (MajorV%, MinorV%)
  60. DECLARE SUB GetAttrF (Attr%)
  61. DECLARE SUB GetDateF (MonthNr%, Day%, Year%)
  62. DECLARE SUB GetDOSv (MajorVersion%, MinorVersion%)
  63. DECLARE SUB GetDrv (Drive$)
  64. DECLARE SUB GetDView (MajorV%, MinorV%)
  65. DECLARE SUB GetExecPath (HomePath$, PathLen%)
  66. DECLARE SUB GetKbd (INSERT%, Caps%, Num%, ScrollLock%)
  67. DECLARE SUB GetKbd1 (LShift%, RShift%, Control%, Alt%)
  68. DECLARE SUB GetLIMHandles (Handles%)
  69. DECLARE SUB GetLIMm (TotalPages%, FreePages%)
  70. DECLARE SUB GetLIMv (MajorVersionNum%, MinorVersionNum%)
  71. DECLARE SUB GetNameF (FileName$, namelen%)
  72. DECLARE SUB GetSizeFL (FileSize&)
  73. DECLARE SUB GetSub (SubDir$, SubDirLen%)
  74. DECLARE SUB GetSub1 (Drive$, SubDir$, SubDirLen%, ErrCode%)
  75. DECLARE SUB GetTimeF (Hour%, Minute%, Second%)
  76. DECLARE SUB GetTView (Installed%)
  77. DECLARE SUB GetTVScreen (DSeg%, DOfs%)
  78. DECLARE SUB KbdType (EnhancedKbd%)
  79. DECLARE SUB LClose (BYVAL EMSHandle%)
  80. DECLARE SUB LGet (BYVAL EMSHandle%, BYVAL DSeg%, BYVAL DOfs%, BYVAL WORDS%)
  81. DECLARE SUB LOpen (BYVAL WORDS%, EMSHandle%, ErrCode%)
  82. DECLARE SUB LPut (BYVAL EMSHandle%, BYVAL DSeg%, BYVAL DOfs%, BYVAL WORDS%)
  83. DECLARE SUB LRotate (St$)
  84. DECLARE SUB Namecase (St$)
  85. DECLARE SUB Processor (CPU%)
  86. DECLARE SUB Retries (BYVAL Tries%, BYVAL RetryPauseLen%)
  87. DECLARE SUB Reverse (St$)
  88. DECLARE SUB RInstr (MainSt$, SubSt$, Posn%)
  89. DECLARE SUB SetError (BYVAL ErrorLevel%)
  90. DECLARE SUB SetKbd (BYVAL INSERT%, BYVAL Caps%, BYVAL Num%, BYVAL ScrollLock%)
  91. DECLARE SUB SubExist (SubDir$, IsThere%)
  92. DECLARE SUB TInstr (St$, BYVAL ChrType%, Place%)
  93. DECLARE SUB UnCalcAttr (FG%, BG%, BYVAL Attr%)
  94. DECLARE SUB UpdTVScreen (DSeg%, DOfs%)
  95. DECLARE SUB WinCheck (MajorV%, MinorV%)
  96.  
  97. 'NOTE: The following variables are not universally available.
  98. '      Check DFRAME.DOC for variables available to each BBS system's file.
  99.  
  100. COMMON SHARED Active.Menu%              '0=Main,1=Msg,2=File,3=Sysop (WC 3.0+)
  101. COMMON SHARED Age$                      'WWIV
  102. COMMON SHARED Alias$                    'Caller's alias/handle
  103. COMMON SHARED AllowedBytes&             'Allowed BYTES from the PCB PWRD file.
  104. COMMON SHARED AlreadyConnected$         '"TRUE" or "FALSE"
  105. COMMON SHARED AnsiOn$                   '"TRUE" or "FALSE"
  106. COMMON SHARED AnsiSupport$              'Caller supports ANSI but in NG mode
  107. COMMON SHARED Auto.Recycle%             '0 = Return control to programmer on
  108.                                         'carrier loss. 1 = Automatic recyle
  109.                                         'and return to BBS (Default).
  110. COMMON SHARED Banked.Time%              'WildCat! v3.0+
  111. COMMON SHARED BaudConn$                 'Connect rate of caller or "LOCAL"
  112. COMMON SHARED BaudOpen$                 'Port opening BPS
  113. COMMON SHARED BaudRate$                 'Baud and parity for DORINFO
  114.                                         'Baud rate or 'KB' for WWIV
  115. COMMON SHARED BBSColor%                 'BBS default color code (1-15)
  116. COMMON SHARED BBSDir$                   'Spitfire's home directory
  117. COMMON SHARED BBSSys$                   'Name of the BBS
  118. COMMON SHARED BBSName$                  'WWIV
  119. COMMON SHARED BirthDate$                'Caller's date of birth
  120. COMMON SHARED BltPath$                  'Path of the high score bulletin.
  121. COMMON SHARED CallAlarm%                'Caller alarm status.     -1=ON, 0=OFF
  122. COMMON SHARED CallersLoc$               'Location of CALLERSx log
  123. COMMON SHARED CallSign$                 'WWIV
  124. COMMON SHARED ChatStatus$               'Chat mode status. "U" or "A"
  125. COMMON SHARED City$                     'Caller's city and state
  126. COMMON SHARED CNAMESLoc$                'Location of CNAMES
  127. COMMON SHARED Columns$                  'WWIV
  128. COMMON SHARED Command.Line$             'Y or N, WildCat! v3.0+
  129. COMMON SHARED Comport%                  'COM port number
  130. COMMON SHARED ConfReg$                  'Conference registration
  131. COMMON SHARED Console$                  '"LOCAL" or "REMOTE"
  132. COMMON SHARED Daily.Bytes.Alwd&         'Daily download max. K limit
  133. COMMON SHARED DailyDnldBytes&           'Bytes downloaded so far today.
  134. COMMON SHARED DataBits$                 '7 OR 8
  135. COMMON SHARED DataDir$                  'WWIV
  136. COMMON SHARED DeleteFlag%               '1 = delete this record, 0 = keep
  137. COMMON SHARED Display%                  'Local display status.    -1=ON, 0=OFF
  138. COMMON SHARED DLPerDay&                 'Number of downloads allowed per day
  139. COMMON SHARED DLToday&                  'Number of downloads made today
  140. COMMON SHARED Door.DL&                  'WildCat 3.0+ # files DL'ed in door
  141. COMMON SHARED Door.KB&                  'WildCat 3.0+ Total K DL'ed in door
  142. COMMON SHARED Door.Logoff$              'WildCat 3.0+ Y or N if user logged
  143.                                         'off from within the door
  144. COMMON SHARED DoorNumber$               '
  145. COMMON SHARED Doors.Opened%             'Number of Doors he has opened
  146. COMMON SHARED DorInfo13th$              '13th line for RBBS DORINFO
  147. COMMON SHARED Downloads&                'Number of downloads made
  148. COMMON SHARED ECC%                      'Error corrected connect.  1=YES, 0=NO
  149. COMMON SHARED EnterDoor$                'Time caller entered the door
  150. COMMON SHARED Event$                    'Event time (hh:mm)
  151. COMMON SHARED ExeName$                  'Name of .EXE (Programmer supplied)
  152. COMMON SHARED ExitFrom$                 'Conference exited BBS from
  153. COMMON SHARED Expert$                   'Expert mode - "Y" or "N"
  154. COMMON SHARED Expire$                   'Caller's expiration date
  155. COMMON SHARED ExpiredLevel&             'Expired Security level
  156. COMMON SHARED ExtraTime&                'Number of seconds gained since logon
  157. COMMON SHARED First$                    'Caller's first name
  158. COMMON SHARED Fossil%                   '0 = No Fossil driver, 1 = yes
  159. COMMON SHARED FrontEnd$                 '"TRUE" or "FALSE" if booted from a
  160.                                         'front end program.
  161. COMMON SHARED GfilesDir$                'WWIV
  162. COMMON SHARED Gold$                     'WWIV
  163. COMMON SHARED Graphics%                 'Graphics mode status.    -1=ON, 0=OFF
  164. COMMON SHARED Hi.Ascii%                 '1 = Allow IN.PUT to accept ASCII
  165.                                         'values 128 - 255. Default = 0
  166. COMMON SHARED HPhone$                   'Caller's home phone number
  167. COMMON SHARED IRQ%                      'For use with non-standard IRQ's
  168.                                         '(other than IRQ3 or IRQ4)
  169. COMMON SHARED Language$                 'PCBoard language extension
  170. COMMON SHARED LastConf%                 'Conference number last in.
  171. COMMON SHARED LastFArea$                'Last file area
  172. COMMON SHARED LastMConf$                'Last message conference
  173. COMMON SHARED LastMsg$                  'Last message read
  174. COMMON SHARED LastOn$                   'Date caller last logged on (MM-DD-YY)
  175. COMMON SHARED LastOnDate$               'Date and time of last call
  176. COMMON SHARED LastScan$                 'Date of last directory/new files scan
  177. COMMON SHARED LastTimeOn$               'Last time caller was on
  178. COMMON SHARED Level&                    'Caller's security level
  179. COMMON SHARED LocalUsr%                 '-1 = LOCAL mode, 0 = Online
  180. COMMON SHARED Log$                      'WWIV
  181. COMMON SHARED LogonHrs$                 'Time caller logged on in HH:MM format
  182. COMMON SHARED LogonMins%                'Time caller logged on in minutes
  183. COMMON SHARED LogonSecs&                'Number of seconds since midnight
  184.                                         'when caller logged on to the BBS.
  185. COMMON SHARED LogonTimeDate$            'Date and time of this call
  186. COMMON SHARED MaxBaud$                  'Maximum baud of the system
  187. COMMON SHARED Max.Files%                'Maximum daily files available
  188. COMMON SHARED MinsCredit%               'Time credits in minutes
  189. COMMON SHARED MNP$                      '"MNP/ARQ Connection" or
  190.                                         '"Normal Connection"
  191. COMMON SHARED Mode%                     '0 = Non-color, -1 = color is on
  192. COMMON SHARED Msgs.Left%                'Total messages left
  193. COMMON SHARED Msgs.Read%                'Total messages read
  194. COMMON SHARED Name$                     'Caller's full name
  195. COMMON SHARED Network%                  '1 = BBS is networked, 0 = no network
  196. COMMON SHARED Network$                  'DORINFO network type
  197. COMMON SHARED NoCarrier%                '0 = Carrier present, 1 = No carrier
  198. COMMON SHARED NodeNum%                  'Node number
  199. COMMON SHARED NoDTELock$                '"TRUE" or "FALSE" if configured for
  200.                                         'software data flow control.
  201. COMMON SHARED No.Status%                '0 = Show Status lines, 1 = Don't
  202. COMMON SHARED Owner$                    'DoorFrame registered owners name.
  203. COMMON SHARED PageBell%                 'Page bell status.        -1=ON, 0=OFF
  204. COMMON SHARED PageLen%                  'Caller's page length
  205. COMMON SHARED Param$                    'Configuration filename
  206. COMMON SHARED Parity%                   'Parity (word length?) (7 or 8)
  207. COMMON SHARED Parity$                   'WWIV
  208. COMMON SHARED Password$                 'Password of caller
  209. COMMON SHARED PathGen$                  'Path to the GEN directory
  210.                                         'Path to Allfiles.dat DIR for WC 3.0+
  211. COMMON SHARED PathMain$                 'Path to the MAIN directory
  212.                                         'Path to BBS dir. for WC 3.0+
  213. COMMON SHARED PCBDat$                   'Location of PCBOARD.DAT
  214. COMMON SHARED PCB.Version%              'PCBoard version number (i.e. 1450)
  215. COMMON SHARED Printer%                  'Printer status.          -1=ON, 0=OFF
  216. COMMON SHARED ProgName$                 'Name of DOOR (Programmer supplied)
  217. COMMON SHARED Protocol$                 'Caller's default protocol (Z, X, etc)
  218. COMMON SHARED Response$                 'Returned after a CALL to IN.PUT
  219. COMMON SHARED RTS$                      ' Y = RTS/CTS, N = No RTS/CTS (TriBBS)
  220. COMMON SHARED Sec.Level.Name$           'WildCat! v3.0+
  221. COMMON SHARED Seconds&                  'Number of seconds since midnight
  222.                                         'when caller entered the door.
  223. COMMON SHARED Serial$
  224. COMMON SHARED Sex$                      'WWIV
  225. COMMON SHARED SysLoc$
  226. COMMON SHARED Sysop%                    '1 = SYSOP is using DOOR, 0 otherwise
  227. COMMON SHARED Sysop$                    'WWIV
  228. COMMON SHARED SysOpFirst$               'Sysop's first name
  229. COMMON SHARED SysOpFlag$                '" ", "N"=Sysop Next, "X"=Exit to DOS
  230. COMMON SHARED SysopKeys%                'Sysop keys 0=arrows, 1=alternate set
  231. COMMON SHARED SysOpLast$                'Sysop's last name
  232. COMMON SHARED SysOpName$                'Sysop's first and last names
  233. COMMON SHARED SysOpNext$                '"TRUE" or "FALSE"
  234. COMMON SHARED System.File%              '1 = PCBOARD.SYS     2 = USERS.SYS
  235.                                         '3 = DOOR.SYS        4 = CALLINFO.BBS
  236.                                         '5 = CHAIN.TXT       6 = DORINFOx.DEF
  237.                                         '7 = SFDOORS.DAT     8 = USERINFO.DAT
  238.                                         '9 = GTUSER.BBS
  239. COMMON SHARED TimeAdjust%               'Use to adjust the callers time
  240.                                         'remaining online (in minutes).
  241. COMMON SHARED TimeAlwd%                 'Minutes caller is allowed
  242. COMMON SHARED TimeLastCall$             'Time of last call (hh:mm)
  243. COMMON SHARED TimeLeft%                 'Time caller has left in minutes
  244. COMMON SHARED TimeNow%                  'Current time in minutes
  245. COMMON SHARED TimeOff$                  'Time caller exited the door
  246. COMMON SHARED TimeOut%                  'Keyboard timeout in secs. default=300
  247. COMMON SHARED TimesOn%                  'Number of times on system
  248. COMMON SHARED TimeUsed%                 'Time used so far today in minutes
  249. COMMON SHARED Total.Bytes.Alwd&         'Max. bytes allowed
  250. COMMON SHARED Total.Bytes.Today&        'Daily download K total
  251. COMMON SHARED Total.KB.Dl&              'Total K bytes downloaded
  252. COMMON SHARED Total.KB.Ul&              'Total K bytes uploaded
  253. COMMON SHARED TotDnldBytes&             'Total number of BYTES downloaded
  254. COMMON SHARED TotUpldBytes&             'Total number of BYTES uploaded
  255. COMMON SHARED Uploads&                  'Number of uploads made
  256. COMMON SHARED UserComment$              'User maintained comment
  257. COMMON SHARED UserNum%                  'Record number of caller
  258. COMMON SHARED UserNetLoc$               'Location of PCBoard USERNET.DAT
  259. COMMON SHARED UsersLoc$                 'Location of PCBOARD USERS file
  260. COMMON SHARED Version$                  'DOOR version # (Programmer supplied)
  261. COMMON SHARED WPhone$                   'Caller's work phone number
  262.  
  263. CONST BLACK = 0, BLUE = 1, GREEN = 2, CYAN = 3, RED = 4, MAGENTA = 5
  264. CONST YELLOW = 6, WHITE = 7, GRAY = 8, LBLUE = 9, LGREEN = 10, LCYAN = 11
  265. CONST LRED = 12, LMAGENTA = 13, LYELLOW = 14, LWHITE = 15
  266.  
  267.  
  268.